home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / SWAG / SWAGA_C / COMM.SWG / 0020_Get Serial Port Timeout.pas < prev    next >
Pascal/Delphi Source File  |  1993-08-18  |  331b  |  12 lines
  1. FUNCTION Serial_Time_Out(COM : byte) : byte;
  2. { DESCRIPTION:
  3.     Time-Out values for RS232 communications lines.
  4.   SAMPLE CALL:
  5.     NB := Serial_Time_Out(1);
  6.   NOTES:
  7.     The allowed values for COM are: 1,2,3 or 4. }
  8.  
  9. BEGIN { Serial_Time_Out }
  10.   Serial_Time_Out := Mem[$0000:$047C + Pred(COM)];
  11. END; { Serial_Time_Out }
  12.